Código fuente de 'Fecha simple 2.asp'
<html>
<head>
<title>Fecha simple 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 9pt">
<center><b><font face="Arial" size="3">Fecha simple 2</font></b></center><br>
<br>
<!--' By: Ben O'Neill
' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6150&lngWId=4
-->
<%
function FechaDeHoy()
scpDay = Day(Now())
NumMes = Month(Now())
scpYear = Year(Now())
scpHour = Hour(Now())
scpMinute = Minute(Now())
if NumMes = 1 Then
Mes = "enero"
ElseIf NumMes = 2 Then
Mes = "febrero"
ElseIf NumMes = 3 Then
Mes = "marzo"
ElseIf NumMes = 4 Then
Mes = "abril"
ElseIf NumMes = 5 Then
Mes = "mayo"
ElseIf NumMes = 6 Then
Mes = "junio"
ElseIf NumMes = 7 Then
Mes = "julio"
ElseIf NumMes = 8 Then
Mes = "agosto"
ElseIf NumMes = 9 Then
Mes = "septiembre"
ElseIf NumMes = 10 Then
Mes = "octubre"
ElseIf NumMes = 11 Then
Mes = "noviembre"
Else
Mes = "diciembre"
End if
if Len(scpDay) = 1 Then
pcsDay = "0" & scpDay
Else
pcsDay = scpDay
End if
got_date = "La fecha de hoy es: " & pcsDay & " " & Mes & " de " & scpYear
FechaDeHoy = got_date
End function
response.write FechaDeHoy
%>
</body></html>